;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(deffunction mostrar_todo  ()
  
  (bind ?re (run-query* dame-portatiles ))
  (bind ?contador 0)
  (while (?re next)
  (bind ?p (?re getObject pc))
  (printout t "--------------------------------------------------------------------------" crlf)
  (mostrar ?p)
  (printout t "--------------------------------------------------------------------------" crlf)
  (bind ?contador (+ ?contador  1) ))
  (printout t ?contador " Portatiles cumplen los requisitos introducidos " crlf crlf crlf)
  (printout t "Para mas informacion visitar www.dell.es" crlf) )
  ;;;;;;;;;;;;;  ;;;;;;;;;;;;;  ;;;;;;;;;;;;;  ;;;;;;;;;;;;;  ;;;;;;;;;;;;;  ;;;;;;;;;;;;;  ;;;;;;;;;;;;;  ;;;;;;;;;;;;;  ;;;;;;;;;;;;;  ;;;;;;;;;;;;;  ;;;;;;;;;;;;;  ;;;;;;;;;;;;;  ;;;;;;;;;;;;;  ;;;;;;;;;;;;;  ;;;;;;;;;;;;;  ;;;;;;;;;;;;;

(deffunction mostrar (?pc)  (return 
(printout t crlf 
   "--------------------------------------------------------------------------------" crlf 
   "--------------------------    PORTATIL RECOMENDADO    --------------------------" crlf
   "--------------------------------------------------------------------------------" crlf 
		 "Portatil :  	DELL " ?pc.nombre crlf 
		 "FAMILIA :   	" ?pc.familia crlf 
		 "PRECIO :    	" ?pc.precio  " Euros" crlf  
		 "PANTALLA :  	" ?pc.pantalla "''" crlf  
		 "PESO :      	" ?pc.peso " Kg" crlf  
		 "RAM :       	" ?pc.ram " Gb" crlf  
		 "DISCO : 	" ?pc.disco " Gb" crlf  
		 "TARJETA GRAFICA:    " ?pc.tarjetaGrafica " DE " ?pc.memGrafica "MB" crlf  
		 "PROCESADOR : 	" ?pc.procesador crlf " de " ?pc.cores " Cores a " ?pc.velocidad "GHz" crlf  
		 "Garantia  : 	" ?pc.garantia  " meses" crlf  
		 "Bateria : 	  " ?pc.duracionBateria " horas" crlf  
		 "S.O : 	    " ?pc.so crlf   )) 
)

(defquery obtener-portatiles
"Devuelve todos los PC's que hay en la BC"
?port<-(portatil)
)